0 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,1
1 REM COMMODARES PROBLEM #35-4:
2 REM      BAD LUCK
3 REM SOLUTION BY
4 REM   KAREN MIDDAUGH
5 REM
10 DIM P(12) : FOR J=1 TO 12 : READ P(J):NEXT
20 INPUT"YEAR: 19";Y: INPUT "MONTH (1-12): ";M:INPUT "DAY: ";D:IF D>12 THEN 70
30 L=INT((Y+3)/4):DA=6+Y+L+P(M)+13: IF INT(Y/4)=Y/4 AND M>2 THEN DA=DA+1
40 DA=INT((DA/7-INT(DA/7))*7+.5)
50 IF DA=5 THEN PRINT"THE NEXT FRIDAY THE 13TH IS"M"/13/"Y :END
60 D=13
70 M=M+1:IF M>12 THEN M=1:Y=Y+1
80 GOTO 30
90 DATA 0,3,3,6,1,4,6,2,5,7,3,5